home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
mcedit10.zip
/
HANDSCAN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-12-01
|
2KB
|
54 lines
PROCEDURE handscanMouse;
var
handscanmasks : array[0..1,0..15] of word;
Regs : Registers;
BEGIN
{ Screen Mask }
handscanmasks[0,0] := $C003; {1100000000000011}
handscanmasks[0,1] := $8001; {1000000000000001}
handscanmasks[0,2] := $1FF8; {0001111111111000}
handscanmasks[0,3] := $1FF8; {0001111111111000}
handscanmasks[0,4] := $8001; {1000000000000001}
handscanmasks[0,5] := $C003; {1100000000000011}
handscanmasks[0,6] := $C003; {1100000000000011}
handscanmasks[0,7] := $C003; {1100000000000011}
handscanmasks[0,8] := $C003; {1100000000000011}
handscanmasks[0,9] := $C003; {1100000000000011}
handscanmasks[0,10] := $C003; {1100000000000011}
handscanmasks[0,11] := $C003; {1100000000000011}
handscanmasks[0,12] := $C003; {1100000000000011}
handscanmasks[0,13] := $E007; {1110000000000111}
handscanmasks[0,14] := $FF7F; {1111111101111111}
handscanmasks[0,15] := $FEFF; {1111111011111111}
{ Cursor Mask }
handscanmasks[1,0] := $0000; {0000000000000000}
handscanmasks[1,1] := $3FFC; {0011111111111100}
handscanmasks[1,2] := $7FFE; {0111111111111110}
handscanmasks[1,3] := $7FFE; {0111111111111110}
handscanmasks[1,4] := $3FFC; {0011111111111100}
handscanmasks[1,5] := $15F8; {0001010111111000}
handscanmasks[1,6] := $1AF8; {0001101011111000}
handscanmasks[1,7] := $1FF8; {0001111111111000}
handscanmasks[1,8] := $1FF8; {0001111111111000}
handscanmasks[1,9] := $13F8; {0001001111111000}
handscanmasks[1,10] := $13F8; {0001001111111000}
handscanmasks[1,11] := $1FF8; {0001111111111000}
handscanmasks[1,12] := $0FF0; {0000111111110000}
handscanmasks[1,13] := $0000; {0000000000000000}
handscanmasks[1,14] := $0000; {0000000000000000}
handscanmasks[1,15] := $0000; {0000000000000000}
regs.AX := 9;
regs.BX := 1;
regs.CX := 0;
regs.DX := ofs(handscanmasks);
regs.ES := seg(handscanmasks);
Intr(51,Regs);
end;